Attribute VB_Name = "SetPublicVariables"
Option Explicit
Option Private Module

Public p_workbook As Workbook
Public p_sheet As Worksheet
Public p_cell As Range

Public p_osc_config_sheet_name As String

Public p_address As String
Public p_row As Integer
Public p_column As Integer
Public p_merge_cells_row As Integer
Public p_bar_name As String


Public p_event_enabled As Boolean


Public p_path As String



Sub SetPublicVariables()
    '
    ' Object variable
    '
    Set p_workbook = ActiveWorkbook
    Set p_sheet = ActiveSheet
    Set p_cell = ActiveCell
    '
    ' Common variable
    '
    Let p_osc_config_sheet_name = "OSC_Config"
    Let p_address = p_cell.address
    Let p_row = p_cell.row
    Let p_column = p_cell.Column
    Let p_merge_cells_row = 0
    Let p_bar_name = ""
    
    Let p_event_enabled = False
    
    
    ' Debug.Print wb.Name
End Sub

